home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / IPD_102N.ZIP / WEBSTER.FRM < prev    next >
Text File  |  1994-11-18  |  4KB  |  168 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Webster Client"
  5.    ClientHeight    =   3360
  6.    ClientLeft      =   1065
  7.    ClientTop       =   2010
  8.    ClientWidth     =   5040
  9.    Height          =   3765
  10.    Left            =   1005
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3360
  13.    ScaleWidth      =   5040
  14.    Top             =   1665
  15.    Width           =   5160
  16.    Begin IPPORT IPPort1 
  17.       EOL             =   ""
  18.       InBufferSize    =   2048
  19.       Left            =   0
  20.       LocalPort       =   0
  21.       OutBufferSize   =   2048
  22.       Port            =   0
  23.       Top             =   1320
  24.    End
  25.    Begin TextBox tDesc 
  26.       Height          =   2895
  27.       Left            =   0
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   3  'Both
  30.       TabIndex        =   3
  31.       Top             =   480
  32.       Width           =   5055
  33.    End
  34.    Begin CommandButton bDefine 
  35.       Caption         =   "Define"
  36.       Default         =   -1  'True
  37.       Height          =   375
  38.       Left            =   3720
  39.       TabIndex        =   2
  40.       Top             =   60
  41.       Width           =   1215
  42.    End
  43.    Begin TextBox tWord 
  44.       Height          =   285
  45.       HideSelection   =   0   'False
  46.       Left            =   720
  47.       TabIndex        =   0
  48.       Top             =   120
  49.       Width           =   2775
  50.    End
  51.    Begin Label Label1 
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "Word:"
  54.       Height          =   255
  55.       Left            =   120
  56.       TabIndex        =   1
  57.       Top             =   150
  58.       Width           =   735
  59.    End
  60. End
  61.  
  62. Sub bDefine_Click ()
  63.  
  64. IPPort1.EOL = Chr$(10) 'talking text to Unix host
  65.  
  66. 'first check for a word
  67. If Trim$(tWord) = "" Then
  68.     MsgBox "Define what? Please enter a word first..."
  69.     Exit Sub
  70. End If
  71.  
  72. On Error GoTo ErrorHandling
  73.  
  74. 'if not connected yet, then connect
  75. If Not IPPort1.Connected Then
  76.     'set address and port of webster host in Indiana
  77.     IPPort1.HostAddress = "129.79.254.195"
  78.     IPPort1.Port = 2627
  79.     'now try to connect
  80.     MousePointer = 11
  81.     tDesc = "Connecting to Webster host..."
  82.     IPPort1.Connected = True
  83.     'wait for connection to take place
  84.     '(using a timer would be more appropriate here)
  85.     For i = 1 To 500000
  86.         If IPPort1.Connected Then Exit For
  87.         DoEvents
  88.     Next i
  89.     'connection is taking too long
  90.     If i = 50000 Then
  91.         IPPort1.Connected = False
  92.         MsgBox "Timeout while trying to connect. Please try again later."
  93.         MousePointer = 0
  94.         Exit Sub
  95.     End If
  96. End If
  97.  
  98. 'connection is made, so let's define word
  99. tDesc = "Making request..."
  100. IPPort1.DataToSend = "DEFINE " & tWord & Chr$(10)
  101.  
  102. Exit Sub
  103.  
  104. ErrorHandling:
  105.     MousePointer = 0
  106.     IPPort1.Connected = False
  107.     MsgBox "ERROR: " & Error$
  108.     Exit Sub
  109.  
  110. End Sub
  111.  
  112. Sub Form_Load ()
  113.  
  114. tDesc = Chr$(13) & Chr$(10) & "This is a very simple Webster client." & Chr$(13) & Chr$(10)
  115. tDesc = tDesc & Chr$(13) & Chr$(10) & "It connects to a dictionary host in Indiana." & Chr$(13) & Chr$(10)
  116. tDesc = tDesc & Chr$(13) & Chr$(10) & "You can enter text above, or just" & Chr$(13) & Chr$(10)
  117. tDesc = tDesc & Chr$(13) & Chr$(10) & "doubleclick a word here."
  118.  
  119. End Sub
  120.  
  121. Sub Form_Resize ()
  122.  
  123.  
  124. tDesc.Width = ScaleWidth
  125. tDesc.Height = ScaleHeight - tDesc.Top
  126.  
  127. bDefine.Left = ScaleWidth - bDefine.Width - 120
  128.  
  129. tWord.Width = bDefine.Left - 240 - tWord.Left
  130.  
  131. End Sub
  132.  
  133. Sub IPPort1_DataIn (Text As String, EOL As Integer)
  134.  
  135. Me.MousePointer = 0
  136.  
  137. 'start of a new description...
  138. If tDesc = "Making request..." Then
  139.     tDesc = ""
  140.     MousePointer = 0
  141. End If
  142.  
  143. If EOL Then Text = Text & Chr$(13) & Chr$(10)
  144.  
  145. tDesc.SelStart = Len(tDesc)
  146. tDesc.SelText = Text
  147.  
  148. End Sub
  149.  
  150. Sub IPPort1_Disconnected (StatusCode As Integer, Description As String)
  151.  
  152. MousePointer = 0
  153.  
  154. End Sub
  155.  
  156. Sub tDesc_DblClick ()
  157.  
  158. tWord = tDesc.SelText
  159. bDefine = True
  160.  
  161. 'select word
  162. tWord.SelStart = 0
  163. tWord.SelLength = Len(tWord)
  164. tWord.SetFocus
  165.  
  166. End Sub
  167.  
  168.